home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / bbs / rchat401.zip / RSB2ANCH.MRG < prev    next >
Text File  |  1992-09-14  |  6KB  |  136 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against OLD\RBBSSUB2.BAS to produce RBBSSUB2.BAS
  3. * OLD\RBBSSUB2.BAS:  Date 8-26-1990  Size 138112 bytes
  4. * ------------[ Created 08-28-1990 14:11:04 ]------------
  5. * REPLACING old line(s) by new
  6. 9600 ' $SUBTITLE: 'DefaultU - subroutine to update user defauts'
  7. ' $PAGE
  8. '
  9. '  NAME    -- DefaultU
  10. '
  11. '  INPUTS  --     PARAMETER                    MEANING
  12. '             ZAutoDownDesired
  13. '             ZBoldText$              Ansi bold (0 no, 1 yes)
  14. '             ZCheckBulletLogon
  15. '             ZExpertUser
  16. '             ZWasGR
  17. '             ZLastMsgRead
  18. '             ZLineFeeds
  19. '             ZNulls
  20. '             ZPageLength
  21. '             ZPromptBell
  22. '             ZRegDate$
  23. '             ZReqQuesAnswered
  24. '             ZRightMargin
  25. '             ZSkipFilesLogon
  26. '             ZTimesLoggedOn
  27. '             ZUpperCase
  28. '             ZUserOption$
  29. '             ZUserTextColor          Ansi of color (31-37)
  30. '             ZUserXferDefault$
  31. '
  32. '  OUTPUTS--  USER.OPTONS$
  33. '
  34. '  PURPOSE --  To update the user's record with their options.
  35. '  Meaning of graphics preference stored is as follows: where # is
  36. '  value stored for the color.  E.g. if graphics perference for text
  37. '  files is color, and preference for normal text is light yellow,
  38. '  graphics preference stored is 38.  Colors are Red, Green, Yellow,
  39. '  Blue, Purple, Cyan, and White.
  40. '
  41. '             normal                  bold
  42. ' Graphics R  G  Y  B  P  C  W    R  G  Y  B  P  C  W
  43. '   none  30 33 36 39 42 45 48 | 51 54 57 60 63 66 69
  44. '   ansi  31 34 37 40 43 46 49 | 52 55 58 61 64 67 70
  45. '  color  32 35 38 41 44 47 50 | 53 56 59 62 65 68 71
  46. '
  47.      SUB DefaultU STATIC
  48.      ZWasA =    -ZPromptBell          -2 * ZExpertUser _
  49.             -4 * ZNulls               -8 * ZUpperCase _
  50.            -16 * ZLineFeeds          -32 * ZCheckBulletLogon _
  51.            -64 * ZSkipFilesLogon    -128 * ZAutoDownDesired _
  52.           -256 * ZReqQuesAnswered   -512 * ZMailWaiting _
  53.          -1024 * (NOT ZHiLiteOff)  -2048 * ZTurboKeyUser _           ' KG112101
  54. * ------[ first line different ]------
  55.          -4096 * ZFileWaiting      -8192 * ZFullScreenEditor _       ' KG112101
  56.         -16384 * ZAvailableForChat
  57.      WasX = 3*ZUserTextColor - 63 + 21*VAL(ZBoldText$) + ZWasGR
  58.      IF WasX < 1 OR WasX > 255 THEN _
  59.         WasX = 48
  60.      LSET ZUserOption$ = _
  61.         MKI$(ZTimesLoggedOn) + _
  62.         MKI$(ZLastMsgRead) + _
  63.         ZUserXferDefault$ + _
  64.         CHR$(WasX) + _
  65.         MKI$(ZRightMargin) + _
  66.         MKI$(ZWasA) + _
  67.         ZRegDate$ + _
  68.         CHR$(ZPageLength) + _
  69.         ZEchoer$
  70.      END SUB
  71. * REPLACING old line(s) by new
  72. 9801 ' $SUBTITLE: 'WhosOn - subroutine to display who is on'
  73. ' $PAGE
  74. '
  75. '  NAME    -- WhosOn
  76. '
  77. '  INPUTS  --     PARAMETER                    MEANING
  78. '                NumNodes                   # of nodes to check
  79. '                ZActiveMessageFile$        Current message file
  80. '                ZOrigMsgFile$              Main msg file
  81. '
  82. '  OUTPUTS --  None
  83. '
  84. '  PURPOSE --  To display who is on each node.
  85. '
  86.      SUB WhosOn (NumNodes) STATIC
  87.      WasA1$ = ZActiveMessageFile$
  88.      ZActiveMessageFile$ = ZOrigMsgFile$
  89.      CALL OpenMsg
  90.      FIELD 1, 128 AS ZMsgRec$
  91.      FOR NodeIndex = 2 TO NumNodes + 1
  92.         GET 1,NodeIndex
  93.         ZOutTxt$ = ZFG1$ + "Node" + _
  94.              STR$(NodeIndex - 1) + ZFG2$
  95.         RecIndex = -VAL(MID$(ZMsgRec$,44,2))
  96.         IF RecIndex >= 0 THEN _
  97.            RecIndex = -1
  98.         WasAX$ = MID$(ZBaudRates$,(-5 * RecIndex ),5) + _
  99.               " BPS: "
  100.         IF MID$(ZMsgRec$,55,2) = "-1" AND NOT ZSysop THEN _
  101.            ZWasY$ = "SYSOP" + SPACE$(21) _
  102.         ELSE ZWasY$ = MID$(ZMsgRec$,1,26)
  103.         WasAX$ = WasAX$ + ZFG3$ + ZWasY$
  104. * ------[ first line different ]------
  105.         IF MID$(ZMsgRec$,40,2) <> "-1" THEN                          ' RCHAT
  106.            CALL SaveUserActivity(WhatTheyDoin$, NodeIndex, ZTrue)    ' RCHAT
  107.            IF WhatTheyDoin$ = "C" THEN                               ' RCHAT
  108.               WasAX$ = WasAX$ + ZFG4$ + "[In Chat System]"           ' RCHAT
  109.             ELSEIF WhatTheyDoin$ = "F" THEN                          ' RCHAT
  110.               WasAX$ = WasAX$ + ZFG4$ + "[In File System]"           ' RCHAT
  111.             ELSEIF WhatTheyDoin$ = "M" THEN                          ' RCHAT
  112.               WasAX$ = WasAX$ + ZFG4$ + "[In Message System]"        ' RCHAT
  113.             ELSE                                                     ' RCHAT
  114.               WasAX$ = WasAX$ + ZFG4$ + MID$(ZMsgRec$,93,22)         ' RCHAT
  115.            END IF                                                    ' RCHAT
  116.          ELSE                                                        ' RCHAT
  117.            WasAX$ = WasAX$ + ZFG4$ + "[Has Opened a Door]"           ' RCHAT
  118.         END IF                                                       ' RCHAT
  119.         IF MID$(ZMsgRec$,57,1) = "A" THEN _
  120.            ZOutTxt$ = ZOutTxt$ + "  Online at " + _
  121.                 WasAX$ _
  122.         ELSE IF NOT ZSysop THEN _
  123.                 ZOutTxt$ = ZOutTxt$ + _
  124.                      " Waiting for next caller" _
  125.              ELSE ZOutTxt$ = ZOutTxt$ + _
  126.                        " Offline at " + _
  127.                        WasAX$
  128.         CALL QuickTPut1 (ZOutTxt$)
  129.         CALL AskMore ("",ZTrue,ZTrue,ZAnsIndex,ZFalse)
  130.         IF ZNo THEN _
  131.            NodeIndex = NumNodes + 2
  132.      NEXT
  133.      ZActiveMessageFile$ = WasA1$
  134.      CALL QuickTPut (ZEmphasizeOff$,0)
  135.      END SUB
  136.